home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / Text_Encrypt.AMOS / Text_Encrypt.amosSourceCode
AMOS Source Code  |  1992-02-26  |  426b  |  34 lines
  1. ' Text Encryption
  2. ' ~~~~~~~~~~~~~~~
  3.  
  4. ' Steve Pullinger
  5. ' ~~~~~~~~~~~~~~~
  6.  
  7. ' Length of input string sets code key 
  8. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  9. Do 
  10. LSTART:
  11. EN$=""
  12. UN$=""
  13. Input ">";M$
  14. If M$=""
  15. Bell 
  16. Goto LSTART
  17. End If 
  18. L=Len(M$)
  19. For F=1 To L
  20. TEMP$=Mid$(M$,F,1)
  21. T=Asc(TEMP$)
  22. T2=T+L
  23. EN$=EN$+Chr$(T2)
  24. Next F
  25. Print EN$
  26. L=Len(EN$)
  27. For F=1 To L
  28. TEMP$=Mid$(EN$,F,1)
  29. T=Asc(TEMP$)
  30. T2=T-L
  31. UN$=UN$+Chr$(T2)
  32. Next F
  33. Print UN$
  34. Loop